(help "This is the executable which lets you chose the tracks to play.\n\n" @copyfiles-help)
(source "Prog-GUI")
(dest @default-dest)
(confirm)
)
(set textfile-help "The created AREXX script gets the necessary information from JukeBox and calls the executable, then works on its output and lets you hear the music. Great, isn't it?")
(set textfile-prompt "Creating AREXX script for Prog-GUI")
(set filename "prog.jb")
(if (= num 0)
(
(textfile
(dest (tackon @default-dest filename))
(append "/* Prog.jb by Patrick Kursawe 1996 */\n\ntexts = \"Inhalt gewählt\"\n")
(include "prog.main")
(prompt textfile-prompt)
(help textfile-help)
(confirm)
)
)
)
(if (= num 1)
((
(textfile
(dest (tackon @default-dest filename))
(append "/* Prog.jb by Patrick Kursawe 1996 */\n\ntexts = \"contents chosen\"\n")
(include "prog.main")
(help textfile-help)
(prompt textfile-prompt)
(confirm)
)
)
)
)
(set fkey_pg (+ (askchoice
(prompt "Please select an F-Key for calling Prog-GUI")
(help "You can call the program from a shell (rx prog.jb) or by pressing an F-Key while the JukeBox-Window is active.\n\n" @askchoice-help)